************************************************************
********************* Replication code for *****************
*** Pay Your Debts: Moral Dilemmas of International Debt ***
************* Alessandro Del Ponte & Peter DeScioli ********
********************** Political Behavior ******************
******************* Experiment 2 - SSI *********************
************************************************************

*Cuts: would it be morally wrong to make cuts? No (0) or Yes (1)
*CutWrong: How morally wrong to make cuts? (0-10)
*CutPunish: How strong of a punishment for making cuts? (0-10)

*StopRepay: Would it morally wrong to stop repaying? No (0) or Yes (1)
*StopWrong: How morally wrong to stop repaying? (0-10)
*StopPunish: How strong of a punishment for stop repaying? (0-10)

*Condition (dummy variable: 0 = 2x; 1 = 20x)

******************************************************
* Figure 5 - Should Avalon default (0) or Repay (1)? *
******************************************************
//Panel A
sort Condition
by Condition: tab whatDo

// Binomial test against 50% (chance)
bitest whatDo == 0.5 if Condition == 0
bitest whatDo == 0.5 if Condition == 1

//test difference by condition
tabulate whatDo Condition, chi2

***************
* By ideology *
***************
//ideo_cat = 0: liberal; 1; moderate; 2 = conservative

//Panel B
sort ideo_cat
by ideo_cat: tab whatDo if Condition == 0
by ideo_cat: tab whatDo if Condition == 1

//analysis
tabulate whatDo ideo_cat if Condition ==0 & ideo_cat!=1, chi2
tabulate whatDo ideo_cat if Condition ==1 & ideo_cat!=1, chi2

**********************************************************************
* Table 4 - What should the government do? Repay (0) or Default (1)? *
**********************************************************************
reg whatDo Condition Ideo

//alternative (footnote)
logit whatDo Condition Ideo


********************************************
* Moral judgments of default - By ideology *
********************************************

*********************************
* Would it be wrong to default? *
*********************************
tabulate StopRepay ideo_cat if Condition ==0 & ideo_cat !=1, chi2
tabulate StopRepay ideo_cat if Condition ==1 & ideo_cat !=1, chi2

**************************************
* How wrong woould it be to default? *
**************************************
ttest StopWrong if Condition ==0 & ideo_cat !=1, by(ideo_cat) 
ttest StopWrong if Condition ==1 & ideo_cat !=1, by(ideo_cat) 

**************************************************************
* How harshly should the government be punished for default? *
**************************************************************
ttest StopPunish if Condition ==0 & ideo_cat !=1, by(ideo_cat) 
ttest StopPunish if Condition ==1 & ideo_cat !=1, by(ideo_cat) 


****************
*** Figure 6 ***
****************
sort ideo_cat
by ideo_cat: sum StopRepay if Condition == 0
by ideo_cat: sum StopRepay if Condition == 1

by ideo_cat: sum StopWrong if Condition == 0
by ideo_cat: sum StopWrong if Condition == 1

by ideo_cat: sum StopPunish if Condition == 0
by ideo_cat: sum StopPunish if Condition == 1


*****************************************************
* Moral judgments of cutting programs - By ideology *
*****************************************************

**************************************
* Would it be wrong to cut programs? *
**************************************
tabulate Cuts ideo_cat if Condition ==0 & ideo_cat !=1, chi2
tabulate Cuts ideo_cat if Condition ==1 & ideo_cat !=1, chi2

*******************************************
* How wrong woould it be to cut programs? *
*******************************************
ttest CutWrong if Condition ==0 & ideo_cat !=1, by(ideo_cat) 
ttest CutWrong if Condition ==1 & ideo_cat !=1, by(ideo_cat) 

***********************************************************************
* How harshly should the government be punished for cutting programs? *
***********************************************************************
ttest CutPunish if Condition ==0 & ideo_cat !=1, by(ideo_cat) 
ttest CutPunish if Condition ==1 & ideo_cat !=1, by(ideo_cat) 

****************
*** Figure 7 ***
****************
sort ideo_cat
by ideo_cat: sum Cuts if Condition == 0
by ideo_cat: sum Cuts if Condition == 1

by ideo_cat: sum CutWrong if Condition == 0
by ideo_cat: sum CutWrong if Condition == 1

by ideo_cat: sum CutPunish if Condition == 0
by ideo_cat: sum CutPunish if Condition == 1


****************
*** Figure 8 ***
****************
//see supplemental Comments files

****************
*** APPENDIX ***
****************

*******************************
*** Table A5 - Demographics ***
*******************************
sum age
sum education

tab Female
tab ethnicity

//7-point ideology scale
sum Ideo

//liberals (<0), modereates (0), conservatives (>0)
tab ideoCat

//partisanship
tab PID

//Leaners
tab LeanPID

//Democrats
display 416 + 92

//Republicans
display 305 + 65

//reliability partisan identity scale
alpha RepID1 RepID2 RepID3 RepID4
alpha DemID1 DemID2 DemID3 DemID4

//partisan identity
tab RepID
tab DemID

****************
*** Table A6 ***
****************
reg whatDo i.Condition##c.Ideo


*****************
*** Figure A1 ***
*****************
sort Condition
//Panel A
by Condition: sum StopRepay

//Panel B
by Condition: sum StopWrong

//Panel C
by Condition: sum StopPunish

*********************************
* Would it be wrong to default? *
*********************************
tab StopRepay Condition, chi2

**************************************
* How wrong woould it be to default? *
**************************************
ttest StopWrong, by(Condition)

**************************************************************
* How harshly should the government be punished for default? *
**************************************************************
ttest StopPunish, by(Condition)


****************************************************************************
*** Table A7 - Regressions for moral judgments of defaulting on the debt ***
****************************************************************************
// A
**************************************************************
* Would it morally wrong to stop repaying? No (0) or Yes (1)?*
**************************************************************
reg StopRepay Condition

// B
**********************************************
* How morally wrong to stop repaying? (0-10)*
**********************************************
reg StopWrong Condition

//C
*******************************************************
* How strong of a punishment for stop repaying? (0-10)*
*******************************************************
reg StopPunish Condition


*****************
*** Figure A2 ***
*****************

sort Condition
//Panel A
by Condition: sum Cuts

//Panel B
by Condition: sum CutWrong

//Panel C
by Condition: sum CutPunish

**************************************
* Would it be wrong to cut programs? *
**************************************
tabulate Cuts Condition, chi2

*******************************************
* How wrong woould it be to cut programs? *
*******************************************
ttest CutWrong, by(Condition)

***********************************************************************
* How harshly should the government be punished for cutting programs? *
***********************************************************************
ttest CutPunish, by(Condition)


*****************************************************************
*** Table A8 - Moral judgments of cutting government programs ***
*****************************************************************
//A - would it be morally wrong to make cuts? No (0) or Yes (1)?
reg Cuts Condition

//B - How morally wrong to make cuts? (0-10)
reg CutWrong Condition

//C - How strong of a punishment for making cuts? (0-10)
reg CutPunish Condition


*******************************************************************************
*** Table A9 - Opposition to default by moral judgments of default and cuts ***
*******************************************************************************
logit whatDo Cuts StopRepay if Condition == 0
logit whatDo Cuts StopRepay if Condition == 1



*******************************
*** Results by Partisanship ***
*******************************

*****************
*** Figure A3 ***
*****************
sort partisanship
by partisanship: tab whatDo if Condition == 0
by partisanship: tab whatDo if Condition == 1

*******************************************
* Should Avalon Default (0) or Repay (1)? *
*******************************************
//analysis
tabulate whatDo Republican if Condition ==0, chi2
tabulate whatDo Republican if Condition ==1, chi2

// Binomial test against 50% (chance)
//Democrats
bitest whatDo == 0.5 if Condition == 0 & partisanship ==0
bitest whatDo == 0.5 if Condition == 1 & partisanship ==0

//Independents
bitest whatDo == 0.5 if Condition == 0 & partisanship ==1
bitest whatDo == 0.5 if Condition == 1 & partisanship ==1

//Republicans
bitest whatDo == 0.5 if Condition == 0 & partisanship ==2
bitest whatDo == 0.5 if Condition == 1 & partisanship ==2


******************************
* Moral judgments of default *
******************************

*********************************
* Would it be wrong to default? *
*********************************
tabulate StopRepay Republican if Condition ==0, chi2
tabulate StopRepay Republican if Condition ==1, chi2

**************************************
* How wrong woould it be to default? *
**************************************
ttest StopWrong if Condition ==0, by(Republican) 
ttest StopWrong if Condition ==1, by(Republican) 

**************************************************************
* How harshly should the government be punished for default? *
**************************************************************
ttest StopPunish if Condition ==0, by(Republican) 
ttest StopPunish if Condition ==1, by(Republican)

*****************
*** Figure A4 ***
*****************
sort partisanship

//Panel A
by partisanship: sum StopRepay if Condition == 0
by partisanship: sum StopRepay if Condition == 1

//Panel B
by partisanship: sum StopWrong if Condition == 0
by partisanship: sum StopWrong if Condition == 1

//Panel C
by partisanship: sum StopPunish if Condition == 0
by partisanship: sum StopPunish if Condition == 1


***************************************
* Moral judgments of cutting programs *
***************************************

**************************************
* Would it be wrong to cut programs? *
**************************************
tabulate Cuts Republican if Condition ==0, chi2
tabulate Cuts Republican if Condition ==1, chi2

*******************************************
* How wrong woould it be to cut programs? *
*******************************************
ttest CutWrong if Condition ==0, by(Republican) 
ttest CutWrong if Condition ==1, by(Republican) 

***********************************************************************
* How harshly should the government be punished for cutting programs? *
***********************************************************************
ttest CutPunish if Condition ==0, by(Republican) 
ttest CutPunish if Condition ==1, by(Republican) 

*****************
*** Figure A5 ***
*****************
sort partisanship

//Panel A
by partisanship: sum Cuts if Condition == 0
by partisanship: sum Cuts if Condition == 1

//Panel B
by partisanship: sum CutWrong if Condition == 0
by partisanship: sum CutWrong if Condition == 1

//Panel C
by partisanship: sum CutPunish if Condition == 0
by partisanship: sum CutPunish if Condition == 1
